HA$PBExportHeader$w_arg_report_mmenu.srw
forward
global type w_arg_report_mmenu from w_arg_report
end type
type sle_1 from singlelineedit within w_arg_report_mmenu
end type
end forward

global type w_arg_report_mmenu from w_arg_report
sle_1 sle_1
end type
global w_arg_report_mmenu w_arg_report_mmenu

forward prototypes
public subroutine wf_ejecutar_reporte ()
end prototypes

public subroutine wf_ejecutar_reporte ();Datetime ldt_fecini, ldt_fecfin

//ldt_fecini =//datetime(date(em_desde.text), time('00:00:00'))
//ldt_fecfin =datetime(date(em_hasta.text),  time('00:00:00'))
//
string ls_menu='M0011'

istr_parm.dw_parm[1].Retrieve(integer(sle_1.text))
end subroutine

on w_arg_report_mmenu.create
int iCurrent
call super::create
this.sle_1=create sle_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.sle_1
end on

on w_arg_report_mmenu.destroy
call super::destroy
destroy(this.sle_1)
end on

type cb_2 from w_arg_report`cb_2 within w_arg_report_mmenu
end type

type cb_1 from w_arg_report`cb_1 within w_arg_report_mmenu
end type

type dw_1 from w_arg_report`dw_1 within w_arg_report_mmenu
integer y = 740
integer width = 1737
integer height = 36
end type

type sle_1 from singlelineedit within w_arg_report_mmenu
integer x = 325
integer y = 96
integer width = 261
integer height = 112
integer taborder = 30
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
string text = "0"
borderstyle borderstyle = stylelowered!
end type

